home *** CD-ROM | disk | FTP | other *** search
/ DigitalVision: Spaced Out / DigitalVision: Spaced Out - Disc 1.iso / pc / data / images.dxr / Internal_27_keyword search entry box.ls < prev    next >
Encoding:
Text File  |  2001-10-22  |  410 b   |  17 lines
  1. property pSaveStateList
  2.  
  3. on keyDown me
  4.   if the key = RETURN then
  5.     pSaveStateList = utilsGetState(#keywordsearch)
  6.     keyword = member("keywordsearch").text
  7.     if keyword <> 3 then
  8.       sendAllSprites(#processKeywordSearch, keyword, pSaveStateList.keywordCDImageList)
  9.     else
  10.       beep()
  11.       member("error message").text = "Pleasse type a keyword in the box"
  12.     end if
  13.   else
  14.     pass()
  15.   end if
  16. end
  17.